inherited FCancelaItempedido: TFCancelaItempedido
  Left = 307
  Top = 254
  Caption = 'Cancela Item pedido Venda'
  ClientHeight = 269
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnImprimir: TBitBtn
      Caption = '&Ativar'
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Caption = '&Cancelar'
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Height = 228
    object Label1: TLabel [0]
      Left = 5
      Top = 40
      Width = 33
      Height = 13
      Caption = 'Pedido'
    end
    object Label2: TLabel [1]
      Left = 118
      Top = 40
      Width = 20
      Height = 13
      Caption = 'Item'
    end
    object Label3: TLabel [2]
      Left = 6
      Top = 78
      Width = 78
      Height = 13
      Caption = 'Situa'#231#227'o Pedido'
    end
    object Label4: TLabel [3]
      Left = 217
      Top = 78
      Width = 65
      Height = 13
      Caption = 'Situa'#231#227'o Item'
    end
    object LSituacaoPedido: TLabel [4]
      Left = 6
      Top = 94
      Width = 192
      Height = 16
      AutoSize = False
      Caption = '                                    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LSituacaoItem: TLabel [5]
      Left = 217
      Top = 94
      Width = 192
      Height = 16
      AutoSize = False
      Caption = '                                    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel [6]
      Left = 5
      Top = 3
      Width = 32
      Height = 13
      Caption = 'Cliente'
    end
    inherited DBGrid1: TDBGrid
      Top = 128
      Height = 79
      Columns = <
        item
          Expanded = False
          FieldName = 'ITENSPED_PEDIDO'
          Title.Caption = 'Pedido'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CLI_RAZAO'
          Title.Caption = 'Cliente'
          Width = 181
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_CODIGO'
          Title.Caption = 'Item'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PROD_DESCRICAOSAI'
          Title.Caption = 'Produto'
          Width = 311
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_DESCRICAOSERVICO'
          Title.Caption = 'Servi'#231'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_QUANTIDADE'
          Title.Caption = 'Quantidade'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_QUANTIDADEATEND'
          Title.Caption = 'Quantidade atendida'
          Width = 107
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_VALORUNIT'
          Title.Caption = 'Valor unit'#225'rio'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITENSPED_VALORTOTAL'
          Title.Caption = 'Valor Total'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 207
    end
    object DBLCBCliente: TDBLookupComboBox
      Left = 5
      Top = 18
      Width = 399
      Height = 21
      KeyField = 'CLI_CODIGO'
      ListField = 'CLI_RAZAO'
      ListSource = DSCliente
      TabOrder = 2
      OnExit = DBLCBClienteExit
      OnKeyDown = DBLCBClienteKeyDown
    end
    object DBLCBPedidoVenda: TDBLookupComboBox
      Left = 6
      Top = 54
      Width = 107
      Height = 21
      KeyField = 'PED_CODIGO'
      ListField = 'PED_CODIGO'
      ListSource = DSPedido
      TabOrder = 3
      OnEnter = DBLCBPedidoVendaEnter
      OnKeyDown = DBLCBPedidoVendaKeyDown
    end
    object DBLCBItemPedidoVenda: TDBLookupComboBox
      Left = 118
      Top = 54
      Width = 107
      Height = 21
      KeyField = 'ITENSPED_CODIGO'
      ListField = 'ITENSPED_CODIGO'
      ListSource = DSItemPedido
      TabOrder = 4
      OnEnter = DBLCBItemPedidoVendaEnter
      OnKeyDown = DBLCBPedidoVendaKeyDown
    end
  end
  inherited QPesquisa: TQuery
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    SQL.Strings = (
      
        'Select Cli_Razao,ITENSPED_CODIGO,ITENSPED_PEDIDO,Prod_DescricaoS' +
        'ai,ITENSPED_DESCRICAOSERVICO,ITENSPED_QUANTIDADE,ITENSPED_QUANTI' +
        'DADEATEND,ITENSPED_VALORUNIT,ITENSPED_VALORTOTAL,ITENSPED_SITUAC' +
        'AO,Ped_Situacao'
      
        'From ITENSPEDIDOVENDA inner join Produto on ITENSPED_PRODUTO = P' +
        'rod_Codigo'
      'inner join PedidoVenda on ItensPed_Pedido = Ped_Codigo'
      'inner join Cliente on Ped_Cliente = Cli_Codigo')
    Left = 272
    Top = 89
  end
  inherited DSPesquisa: TDataSource
    Left = 304
    Top = 89
  end
  object QVerifica: TQuery
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    SQL.Strings = (
      'Select  *'
      'From ITENSPEDIDOVENDA ')
    Left = 341
    Top = 89
  end
  object QAux: TQuery
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    SQL.Strings = (
      
        'Select ITENSPED_CODIGO,ITENSPED_PEDIDO,Prod_DescricaoSai,ITENSPE' +
        'D_DESCRICAOSERVICO,ITENSPED_QUANTIDADE,ITENSPED_QUANTIDADEATEND,' +
        'ITENSPED_VALORUNIT,ITENSPED_VALORTOTAL,ITENSPED_SITUACAO,Ped_Sit' +
        'uacao'
      
        'From ITENSPEDIDOVENDA inner join Produto on ITENSPED_PRODUTO = P' +
        'rod_Codigo'
      'inner join PedidoVenda on ItensPed_Pedido = Ped_Codigo')
    Left = 372
    Top = 89
  end
  object DBCancelaItemPedido: TDatabase
    AliasName = 'Gestao'
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=LINKTEC'
      'PASSWORD=172026')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 238
    Top = 88
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 232
    Top = 48
  end
  object DSPedido: TDataSource
    DataSet = QPedidoVenda
    Left = 269
    Top = 120
  end
  object DSItemPedido: TDataSource
    DataSet = QItemPedidoVenda
    Left = 336
    Top = 120
  end
  object QPedidoVenda: TQuery
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    SQL.Strings = (
      'Select Ped_Codigo,Ped_Cliente  From  PedidoVenda')
    Left = 237
    Top = 121
  end
  object QItemPedidoVenda: TQuery
    DatabaseName = 'DBCANCELAITEMPEDIDOVENDA'
    SQL.Strings = (
      'Select  ITENSPED_CODIGO,ITENSPED_PEDIDO From ITENSPEDIDOVENDA '
      ' ')
    Left = 304
    Top = 121
  end
end
